home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 1998 January / PC Answers Issue 49 Cover CD January 1998.iso / Apps / Director / DATA.Z / Lists Lingo.dir / Scripts_80_getaProp(aPropertyList).ls < prev    next >
Encoding:
Text File  |  1997-05-10  |  835 b   |  24 lines
  1. on mouseDown
  2.   global gDefaultPropList
  3.   doButton()
  4.   if the result = 1 then
  5.     set vProperty to the text of member "Checking Property getAProp Input Field 1"
  6.     set vProperty to stripSpaces(vProperty)
  7.     set vProperty to checkValue(vProperty)
  8.     if vProperty <> EMPTY then
  9.       if ilk(gDefaultPropList, #propList) then
  10.         if vProperty starts "#" then
  11.           set vProperty to value(vProperty)
  12.         end if
  13.         set vGottenValue to string(getaProp(gDefaultPropList, vProperty))
  14.         if vGottenValue = EMPTY then
  15.           displayError("<For non-existent property>")
  16.           set the text of member "Checking Property getAProp Display Field 2" to "<void>"
  17.         else
  18.           set the text of member "Checking Property getAProp Display Field 2" to vGottenValue
  19.         end if
  20.       end if
  21.     end if
  22.   end if
  23. end
  24.